home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Herra
/
TIMWIN.ZIP
/
DCT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-09-22
|
1KB
|
57 lines
; TIM-DEMO 0.5.3 DCT
;
;**************************************************
parms
int windis
endparms
cls
print @8 @i "<<TIM>> DEMO Coordinate transforms ", @n @r
print @8 "In this demonstration some examples of the 'ct' command"
print @8 "will be shown. "
print @8 "First the difference between enlarging using 'ct' and 'blow' ..."
dest p
copy miss
show p
cstr
*windispl h windis
save a
frmt 40 40 ;zoom in into the right eye
curs 63 163
bord pc 255
*windispl i windis
dest r
blow pc 6
*windispl h windis
dest s
print @8 "The left image is enlarged using 'blow' (each pixel"
print @8 "(is just replaced by a 6x6 matrix of that pixel value)"
print @8 "The right image is enlarged using 'ct': pixels are"
print @8 "calculated using bilinear interpolation."
ct pc
*windispl i windis
scroll
start:
print @8 "Now the polygon, shown in 'p' will be mapped onto image 'q'."
print @8 "This can only be done using 'ct' ..."
copy a p
drln p 102 14 18 95 255
drln p 18 95 32 223 255
drln p 32 223 231 243 255
drln p 231 243 102 14 255
text p 128 108 3 "1"
text p 128 12 92 "2"
text p 128 25 221 "4"
text p 128 241 241 "3"
dest p
*windispl h windis
dest q
ct p 102 14 18 95 231 243 32 223
*windispl i windis
stop